home *** CD-ROM | disk | FTP | other *** search
/ Publication 11 / Publication_11_19xx_-_de_Side_B.d64 / senso-fx .grob (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  491b  |  16 lines
  1. 10 rem grobfassung
  2. 11 print"[147]":poke53281,0:poke53280,0
  3. 12 f=int(rnd(1)*15)+1
  4. 13 iff=(peek(53281)and15)then12
  5. 14 p=p+1:ifp=5thenp=1
  6. 15 poke646,f
  7. 16 onpgoto17,19,21,23
  8. 17 poke211,15:poke214,7:sys58640
  9. 18 print" a[209][209][209][157][157][157][157][157][209][209][209][209][209][157][157][157][157][157][209][209][209][209][209][157][157][157][157][157][209][209][209][209][209][157][157][157][157][157][209][209][209][209] ":goto12
  10. 19 poke211,15:poke214,12:sys58640
  11. 20 print"c[209][209][209] [157][157][157][157][157][209][209][209][209][209][157][157][157][157][157][209][209][209][209][209][157][157][157][157][157][209][209][209][209][209][157][157][157][157][157] [209][209][209][209]":goto12
  12. 21 poke211,20:poke214,12:sys58640
  13. 22 print" d[209][209][209][157][157][157][157][157][209][209][209][209][209][157][157][157][157][157][209][209][209][209][209][157][157][157][157][157][209][209][209][209][209][157][157][157][157][157][209][209][209][209] ":goto12
  14. 23 poke211,20:poke214,7:sys58640
  15. 24 print"b[209][209][209] [157][157][157][157][157][209][209][209][209][209][157][157][157][157][157][209][209][209][209][209][157][157][157][157][157][209][209][209][209][209][157][157][157][157][157] [209][209][209][209]":goto12
  16.